perm filename X[NEW,LCS]1 blob sn#153805 filedate 1975-04-09 generic text, type T, neo UTF8
04500		FUNCTION OUTLIM(A,B,C)
04600		OUTLIM=-1
04700		IF(C.LT.A)RETURN
04800		IF(C.GT.B)RETURN
04900		OUTLIM=0 
05000		END